home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 56 / 056.d81 / exhibition jukeb (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1989-01-01  |  5.8 KB  |  189 lines
  1. 0 print"[147]":poke53274,.:sys65418
  2. 1 ifa=.thenpoke55,0:poke56,63:clr:a=1
  3. 5 ifa=1thena=2:load"routines v4",8,1
  4. 6 ifa=2thena=3:load"sid.obj",8,1
  5. 7 ifa=3thena=4:load"raster stuff.o",8,1
  6. 10 fr$="":la$="":ov$=""
  7. 11 ns=7 :dim na$(ns),fi$(ns)
  8. 12 sa=780:sx=781:sy=782
  9. 15 su=51206:sd=51209:rem scroll up&down
  10. 16 poke1020,10:poke1021,16:poke1022,7:poke1023,31:rem    scroll boundaries
  11. 20 gosub1000:rem     title screen
  12. 30 gosub1500:rem       main menu
  13. 40 gosub2000:rem  print names of music
  14. 50 gosub3000:rem scroll menu and select
  15. 60 gosub100 :rem clear window
  16. 64 print"are you sure you want to quit? (y/n)":poke198,.
  17. 66 a=peek(203):ifa<>25anda<>39then66
  18. 68 ifa=39thengosub2020:goto50
  19. 70 open15,8,15,"r0:hello connect=hello connect":input#15,er:close15
  20. 72 ifer<>63thenprint"[147]":end
  21. 74 load"hello connect",8
  22. 90 print"":stop
  23. 100 printla$""
  24. 110 fora=1to5:print"                                    "
  25. 120 next:print"[145][145][145][145][145][145]"
  26. 130 return
  27. 1000 poke53280,14:poke53281,1
  28. 1010 printchr$(142)"[147]";
  29. 1012 fora=1to5:
  30. 1013 print"[154]                                        ";
  31. 1014 next
  32. 1015 print"[154][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]";
  33. 1020 fora=.to14:print"[154][221]                                      [221]";:next
  34. 1030 print"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][157][148][192]"
  35. 1032 fora=1to2:
  36. 1033 print"[154]                                        ";
  37. 1034 next
  38. 1035 print"                                       [157][148] "
  39. 1040 fora=217to242:pokea,peek(a)or128:next
  40. 1050 print"[149][207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208]"
  41. 1060 print"[165]loadstar presents:[170] "
  42. 1070 print"[149][204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186] "
  43. 1080 print"                    "
  44. 1090 print"[144][207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208]"
  45. 1100 fora=1to5
  46. 1110 print"[144][165]                        [167] "
  47. 1120 next
  48. 1130 print"[144][204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186] "
  49. 1135 print"                          "
  50. 1140 poke214,7:print:print"exhibition jukebox"
  51. 1142 print"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  52. 1145 print"by dave marquis"
  53. 1150 print"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  54. 1180 print"[150][207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208]"
  55. 1190 print"[165]       jukebox player         [167] "
  56. 1191 print"[150][165]       by mike maynard        [167] "
  57. 1192 print"[150][165]  copyright 1988 by loadstar  [167] "
  58. 1200 print"[150][204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186] "
  59. 1210 print"                                "
  60. 1220 fora=1tons:read na$(a),fi$(a):next
  61. 1230 print"[149]  press space to continue  [154]":poke198,.
  62. 1240 ifpeek(203)<>60then1240
  63. 1250 return
  64. 1500 print"[149][165]                  [167]"
  65. 1510 print"[165]exhibition jukebox[167] "
  66. 1520 print"[149][165][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][167] "
  67. 1530 print"[154]         [149][165]  copyright 1988  [167] [154]         "
  68. 1535 mm=1263:pokemm,160:poke54272+mm,14
  69. 1540 print"[154]         [149][204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186] [154]         "
  70. 1545 mm=mm+40:pokemm,160:poke54272+mm,14
  71. 1550 print"[154]                              [154]       "
  72. 1555 mm=mm+40:pokemm,160:poke54272+mm,14
  73. 1560 print"[154]    jukebox player by mike maynard     "
  74. 1565 mm=mm+40:pokemm,160:poke54272+mm,14
  75. 1570 print"[154] [146][129][146][207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208]"
  76. 1575 mm=mm+40:pokemm,160
  77. 1580 fora=1to7
  78. 1590 print"[154] [129][146][165]                                    [167]"
  79. 1595 mm=mm+40:pokemm,160:poke54272+mm,6
  80. 1597 ifa=4thenprint"[145][144]--->"tab(34)"<---"
  81. 1600 next
  82. 1610 print"[154] [129][146][204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186]"
  83. 1615 mm=mm+40:pokemm,160:poke54272+mm,6
  84. 1620 fora=1to5
  85. 1630 print"[154] [129][146][165]                                    [167]"
  86. 1635 mm=mm+40:pokemm,160:poke54272+mm,6
  87. 1640 next
  88. 1650 print"[154] [146][129][204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186]"
  89. 1655 mm=mm+40:pokemm,160:poke54272+mm,6
  90. 1660 print"[154]                                       "
  91. 1665 mm=mm+40:pokemm,160:poke54272+mm,6
  92. 1670 fora=217to242:pokea,peek(a)or128:next
  93. 1680 return
  94. 2000 printfr$;
  95. 2010 fora=1to7:printov$"[156]"na$(a):next
  96. 2015 se=4:rem  current selection
  97. 2016 ls$="":rem clear last selection
  98. 2020 gosub100:printla$" use crsr keys to scroll the music."
  99. 2030 print"press [return] to hear the music"
  100. 2040 print"that the arrows point to."
  101. 2050 print"f1 - play all ........ f7 - quit"
  102. 2060 return
  103. 3000 poke198,.:ab=.:pa=.
  104. 3005 b=peek(653):a=peek(203):ifa<>7anda<>2anda<>4anda<>3anda<>1then3000
  105. 3010 if((b=.)and(a=2))or((b)and(a=7))then gosub3100:goto3000
  106. 3020 if((b=.)and(a=7))or((b)and(a=2))then gosub3200:goto3000
  107. 3030 if(a=1)then4000:rem  play selected
  108. 3040 if(a=4)then4100:rem  play all
  109. 3050 if(a=3)then return:rem  quit
  110. 3060 goto3000
  111. 3100 se=se-1:ifse=.thense=ns
  112. 3110 tp=se-3:iftp<1thentp=ns+tp
  113. 3120 syssd:poke648,216:syssd:poke648,4:printfr$ov$"[156]"na$(tp)
  114. 3130 return
  115. 3200 se=se+1:ifse=ns+1thense=1
  116. 3210 bo=se+3:ifbo>nsthenbo=bo-ns
  117. 3220 syssu:poke648,216:syssu:poke648,4:printla$ov$"[156]"na$(bo)
  118. 3230 return
  119. 3999 rem      play music (pl)
  120. 4000 pl=se
  121. 4010 gosub6000:rem    load music
  122. 4020 gosub7000:rem    play music
  123. 4030 gosub6500:rem  display credits
  124. 4040 goto3000
  125. 4097 :
  126. 4098 :
  127. 4099 rem     play all music
  128. 4100 mm=se:pa=-1:forzz=setons
  129. 4110 pl=zz
  130. 4120 gosub6000:rem    load music
  131. 4130 gosub7000:rem    play music
  132. 4140 gosub6500:rem  display credits
  133. 4150 gosub3200
  134. 4155 if(ab)thengosub2020:goto3000
  135. 4160 next:if(mm=1)or(ab)thengosub2020:goto3000
  136. 4170 forzz=1tomm-1
  137. 4180 pl=zz
  138. 4190 gosub6000:rem     load music
  139. 4200 gosub7000:rem     play music
  140. 4210 gosub6500:rem   display credits
  141. 4220 gosub3200:rem  advance selector
  142. 4225 if(ab)thengosub2020:goto3000
  143. 4230 next:gosub2020:goto3000
  144. 6000 ifls$=fi$(pl)thenreturn
  145. 6001 ls$=fi$(pl)
  146. 6003 gosub100:li$="loading "+na$(pl):li=len(li$):ta=20-li/2
  147. 6005 print""tab(ta)li$
  148. 6010 pokesa,1:pokesx,8:pokesy,.:sys65466
  149. 6020 fork=1tolen(fi$(pl))
  150. 6030 poke584+k,asc(mid$(fi$(pl),k)):next
  151. 6040 pokesa,len(fi$(pl)):pokesx,73:pokesy,2:sys65469
  152. 6050 pokesa,.:pokesx,.:pokesy,64:sys65493
  153. 6060 ea=peek(sx)+peek(sy)*256
  154. 6070 return
  155. 6500 gosub100:fora=eato16384step-1
  156. 6510 if(peek(a)=79)and(peek(a-1)=1)thencr=a+1:a=16384
  157. 6520 next:gosub100:sys16130
  158. 6525 gosub100:print"[154]";:he=.:ad=.
  159. 6530 printchr$(peek(cr+ad));:ifpeek(cr+ad)=13thenprint"";
  160. 6540 ad=ad+1:ifpeek(cr+ad)<>.then6530
  161. 6550 poke198,.
  162. 6555 print"[154]          press "chr$(34)"h"chr$(34)" for help.          "
  163. 6560 ke=peek(203):if(key=29)or(key=60)or(key=10)or(key=62)then6562
  164. 6561 ifpeek(49152)<>0then6560
  165. 6562 if(key=60)and(he)then6525
  166. 6563 if(key=10)and(pa)thenab=-1:goto6570
  167. 6564 if(key=29)and(not(he))thengosub7500:goto6560
  168. 6565 if(key=60)or(key=29)or(key=10)then6560
  169. 6570 gosub100:sys16130:poke53281,1
  170. 6572 poke49152,.:poke54276,.:poke54283,.:poke54290,.:sys49629
  171. 6575 print"[154]    jukebox player by mike maynard     "
  172. 6580 if(not(pa))thengosub100:gosub2020
  173. 6590 return
  174. 7000 sys49435:pokesx,.:pokesy,64:sys49458:poke49152,7:return
  175. 7500 print"[154]    jukebox player by mike maynard     "
  176. 7510 gosub100:print"[158] press "chr$(34)"q"chr$(34)" to quit current music."
  177. 7520 ifnot(pa)thenprint:goto7540
  178. 7530 print" press "chr$(34)"a"chr$(34)" to abort play all."
  179. 7540 print" press space to re-display credits."
  180. 7550 he=-1:return
  181. 10000 rem name of song (menu),filename
  182. 10001 data promenade,promenade
  183. 10002 data the gnome,the gnome
  184. 10003 data old castle,old castle
  185. 10004 data tuileries,tuileries
  186. 10005 data chickens,chickens
  187. 10006 data baba yaga,baba yaga
  188. 10007 data gate of kiev,gate of kiev
  189.